foo <- function(x){
	g <- function(y)
		missing(y)
	print(missing(x))
	g(x)
}
print(foo())
foo(1)
